VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Stats"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Dim Catk As Long 'Current attack
Dim Cdef As Long 'Current defend
Dim Cmana As Long 'Mana

Property Get mana()
mana = Cmana
End Property

Property Get atk()
atk = Catk
End Property

Property Get def()
def = Cdef
End Property

Property Let mana(x)
Cmana = x
End Property

Property Let atk(x)
Catk = x
End Property

Property Let def(x)
Cdef = x
End Property
